home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / D-F / FSP-BD.sit / FSPC(Main) < prev    next >
Encoding:
Text File  |  1992-04-06  |  9.2 KB  |  288 lines  |  [TEXT/MSWD]
  1. *
  2. * This file is the main workhorse, it creates a AllFiles text file    *
  3. * for user download separated by section name, It creates a listfile  *
  4. * text file for user download for inclusion in a database. It creates *
  5. * a combined file and 30 day section list, as well as a 7 day new     *
  6. * file text file and a top download text file.                        *
  7. *
  8. * Define pathname labels                                     *
  9. *
  10. DEFINE "TRANSPATH" "SCSI:BBS:TRANS"
  11. DEFINE "TICPATH" "SCSI:BBS:TIC"
  12. DEFINE "FSPPATH" "SCSI:BBS:FSP.TXT:"
  13. *
  14. CLEAR
  15. *
  16. * Set up the header text files for the Top Downloads and 7  *
  17. * day text file listings.                                   *
  18. *
  19. DEFINE "TxtHdr1" "Top Download's from 15/16 as of \Date..."
  20. DEFINE "TxtHdr2" "REMINDER list changes frequently..."
  21. DEFINE "TxtHdr3" "   "
  22. FORMAT "COL:3+'FREQ name:'+NAME+COL:40+'Vers:'+VERS+COL:60+'Size:'+SIZEK"
  23. FORMAT "+CR+0+DESCA"
  24. FORMAT "+TAB"
  25. SAVETEXT/FORMAT "SCSI:BBS:FSP.TXT:Header.TopDwn"
  26. *
  27. DEFINE "TxtHdr1" ""
  28. DEFINE "TxtHdr2" ""
  29. DEFINE "TxtHdr3" ""
  30. *
  31. DEFINE "TxtHdr1" "7 Day New Files Available from 15/16 as of \Date..."
  32. DEFINE "TxtHdr2" "REMINDER list changes frequently..."
  33. DEFINE "TxtHdr3" "   "
  34. FORMAT "TI+COL:18+SIZEK+COL:22+DLCNT+COL:30+DATE+COL:40+SECT+COL:60+UPLDR"
  35. SAVETEXT/FORMAT "SCSI:BBS:FSP.TXT:Header.7Day"
  36. DEFINE "TxtHdr1" ""
  37. DEFINE "TxtHdr2" ""
  38. DEFINE "TxtHdr3" ""
  39. *
  40. *******************************************************************
  41. * Define Macro to create the listfile,allfile,7 day,top download  *
  42. * text files and combined file & newfile sections                 *
  43. *******************************************************************
  44. CLEAR
  45. DEFINEMACRO "Main"
  46. LOAD "@1"
  47. SORT/TITLE
  48. DEFINE "TxtHdr1" ""
  49. DEFINE "TxtHdr2" ""
  50. DEFINE "TxtHdr3" ""
  51. FORMAT "NAME+TAB+VERS+TAB+DATE+TAB+DLCNT+TAB+SECT+CR"
  52. CONCATENATE "F1" "AreaName" ".ListFile"      ; Merge the areaname to the
  53. CONCATENATE "F2" "FSPPATH" "F1"              ; text file name
  54. SAVETEXT/FORMAT "F2"
  55. *
  56. DEFINE "TxtHdr1" "**********"
  57. DEFINE "TxtHdr2" "AreaName"
  58. DEFINE "TxtHdr3" "**********"
  59. FORMAT "COL:3+'File Name:'+TI+COL:30+'Vers:'+VERS+COL:50+'Size:'+SIZEK"
  60. FORMAT "+CR+0+'Upload Date:'+DATE+COL:31+'DLs:'+DLCNT+COL:50+'Sect:'+SECT"
  61. FORMAT "+CR+0+DESCA"
  62. CONCATENATE "F1" "AreaName" ".AllFile"
  63. CONCATENATE "F2" "FSPPATH" "F1"
  64. SAVETEXT/FORMAT "F2"
  65. *
  66. SUBTRACT "TRANSPATH:CombinedFilesSect"       ;remove matches
  67. ADDTO "TRANSPATH:CombinedFilesSect"          ;add new entries to combined file
  68. *
  69. LOAD "@1"                                    ;reload section
  70. DELETE/AGE ">30"
  71. SORT/DATE
  72. PURGE
  73. SUBTRACT "TRANSPATH:NewFilesSect"            ;remove matches
  74. ADDTO "TRANSPATH:NewFilesSect"               ;add new entries to newfiles sect.
  75. *
  76. DEFINE "TxtHdr1" ""                          ;clear out TxtHdr for 7day text.
  77. DEFINE "TxtHdr2" ""
  78. DEFINE "TxtHdr3" ""
  79. *
  80. LOAD "@1"                                    ;reload the section
  81. DELETE/AGE ">7"
  82. SORT/DATE
  83. PURGE
  84. FORMAT "TI+COL:18+SIZEK+COL:22+DLCNT+COL:30+DATE+COL:40+SECT+COL:60+UPLDR"
  85. CONCATENATE "F1" "AreaName" ".7Day"
  86. CONCATENATE "F2" "FSPPATH" "F1"
  87. SAVETEXT/FORMAT "F2"
  88. *
  89. LOAD "@1"
  90. DELETE/DLCNT "<5"
  91. PURGE
  92. SORT/DLCNT
  93. FORMAT "TI+COL:20+SIZEK+COL:30+DLCNT+COL:44+DATE+COL:58+SECT"
  94. CONCATENATE "F1" "AreaName" ".TopDwn"
  95. CONCATENATE "F2" "FSPPATH" "F1"
  96. SAVETEXT/FORMAT "F2"
  97. *
  98. ENDMACRO
  99. *
  100. ************************
  101. * Go do the Main macro *
  102. ************************
  103. *
  104. DEFINE "AreaName" "AMIGA"
  105. Main "TRANSPATH:AMIGA:AMIGA"
  106. DEFINE "AreaName" "APPLE"
  107. Main "TRANSPATH:APPLE:APPLE"
  108. DEFINE "AreaName" "COMMODORE"
  109. Main "TRANSPATH:COM64:COMMODORE"
  110. DEFINE "AreaName" "FIDO"
  111. Main "TRANSPATH:FIDO:FIDO"
  112. DEFINE "AreaName" "IBMAPPS"
  113. Main "TICPATH:IBM:IBM:IBMAPPS:IBMAPPS"
  114. DEFINE "AreaName" "IBMART"
  115. Main "TICPATH:IBM:IBM:IBMART:IBMART"
  116. DEFINE "AreaName" "IBMC"
  117. Main "TICPATH:IBM:IBM:IBMC:IBMC"
  118. DEFINE "AreaName" "IBMCOMM"
  119. Main "TICPATH:IBM:IBM:IBMCOMM:IBMCOMM"
  120. DEFINE "AreaName" "IBMGAMES"
  121. Main "TICPATH:IBM:IBM:IBMGAMES:IBMGAMES"
  122. DEFINE "AreaName" "IBMMISC"
  123. Main "TICPATH:IBM:IBM:IBMMISC:IBMMISC"
  124. DEFINE "AreaName" "IBMPASCAL"
  125. Main "TICPATH:IBM:IBM:IBMPASCAL:IBMPASCAL"
  126. DEFINE "AreaName" "IBMUTIL"
  127. Main "TICPATH:IBM:IBM:IBMUTIL:IBMUTIL"
  128. DEFINE "AreaName" "MACAPPS"
  129. Main "TICPATH:MAC:MAC:MACAPPS:MACAPPS"
  130. DEFINE "AreaName" "MACDA"
  131. Main "TICPATH:MAC:MAC:MACDA:MACDA"
  132. DEFINE "AreaName" "MACEDUC"
  133. Main "TICPATH:MAC:MAC:MACEDUC:MACEDUC"
  134. DEFINE "AreaName" "MACFKEY"
  135. Main "TICPATH:MAC:MAC:MACFKEY:MACFKEY"
  136. DEFINE "AreaName" "MACFONT"
  137. Main "TICPATH:MAC:MAC:MACFONT:MACFONT"
  138. DEFINE "AreaName" "MACGAMES"
  139. Main "TICPATH:MAC:MAC:MACGAMES:MACGAMES"
  140. DEFINE "AreaName" "MACGRAPH"
  141. Main "TICPATH:MAC:MAC:MACGRAPH:MACGRAPH"
  142. DEFINE "AreaName" "MACHC"
  143. Main "TICPATH:MAC:MAC:MACHC:MACHC"
  144. DEFINE "AreaName" "MACINIT"
  145. Main "TICPATH:MAC:MAC:MACINIT:MACINIT"
  146. DEFINE "AreaName" "MACPROG"
  147. Main "TICPATH:MAC:MAC:MACPROG:MACPROG"
  148. DEFINE "AreaName" "MACSOUND"
  149. Main "TICPATH:MAC:MAC:MACSOUND:MACSOUND"
  150. DEFINE "AreaName" "MACTELE"
  151. Main "TICPATH:MAC:MAC:MACTELE:MACTELE"
  152. DEFINE "AreaName" "MACUTIL"
  153. Main "TICPATH:MAC:MAC:MACUTIL:MACUTIL"
  154. DEFINE "AreaName" "MDNADMIN"
  155. Main "TICPATH:MAC:MDN:MDNADMIN:MDNADMIN"
  156. DEFINE "AreaName" "MDNDEMO"
  157. Main "TICPATH:MAC:MDN:MDNDEMO:MDNDEMO"
  158. DEFINE "AreaName" "MDNGAMER"
  159. Main "TICPATH:MAC:MDN:MDNGAMER:MDNGAMER"
  160. DEFINE "AreaName" "MDNINFO"
  161. Main "TICPATH:MAC:MDN:MDNINFO:MDNINFO"
  162. DEFINE "AreaName" "MDNOTHER"
  163. Main "TICPATH:MAC:MDN:MDNOTHER:MDNOTHER"
  164. DEFINE "AreaName" "MDNPROG"
  165. Main "TICPATH:MAC:MDN:MDNPROG:MDNPROG"
  166. DEFINE "AreaName" "MDNTELE"
  167. Main "TICPATH:MAC:MDN:MDNTELE:MDNTELE"
  168. DEFINE "AreaName" "MDNUTIL"
  169. Main "TICPATH:MAC:MDN:MDNUTIL:MDNUTIL"
  170. DEFINE "AreaName" "MDNEDUC"
  171. Main "TICPATH:MAC:MDN:MDNEDUC:MDNEDUC"
  172. DEFINE "AreaName" "MDNPCMAC"
  173. Main "TICPATH:MAC:MDN:MDNPCMAC:MDNPCMAC"
  174. DEFINE "AreaName" "MFNFONT"
  175. Main "TICPATH:MAC:MFN:MFNFONT:MFNFONT"
  176. DEFINE "AreaName" "MFNPROG"
  177. Main "TICPATH:MAC:MFN:MFNPROG:MFNPROG"
  178. DEFINE "AreaName" "MFNEDUC"
  179. Main "TICPATH:MAC:MFN:MFNEDUC:MFNEDUC"
  180. DEFINE "AreaName" "MFNHC"
  181. Main "TICPATH:MAC:MFN:MFNHC:MFNHC"
  182. DEFINE "AreaName" "MFNUTIL"
  183. Main "TICPATH:MAC:MFN:MFNUTIL:MFNUTIL"
  184. DEFINE "AreaName" "MFNTELE"
  185. Main "TICPATH:MAC:MFN:MFNTELE:MFNTELE"
  186. DEFINE "AreaName" "MFNDA"
  187. Main "TICPATH:MAC:MFN:MFNDA:MFNDA"
  188. DEFINE "AreaName" "MFNINIT"
  189. Main "TICPATH:MAC:MFN:MFNINIT:MFNINIT"
  190. DEFINE "AreaName" "MFNGAMES"
  191. Main "TICPATH:MAC:MFN:MFNGAMES:MFNGAMES"
  192. DEFINE "AreaName" "MFNSOUND"
  193. Main "TICPATH:MAC:MFN:MFNSOUND:MFNSOUND"
  194. DEFINE "AreaName" "MFNGRAPH"
  195. Main "TICPATH:MAC:MFN:MFNGRAPH:MFNGRAPH"
  196. DEFINE "AreaName" "MFNAPPS"
  197. Main "TICPATH:MAC:MFN:MFNAPPS:MFNAPPS"
  198. DEFINE "AreaName" "PDNAI"
  199. Main "TICPATH:IBM:PDN:PDNAI:PDNAI"
  200. DEFINE "AreaName" "PDNASM"
  201. Main "TICPATH:IBM:PDN:PDNASM:PDNASM"
  202. DEFINE "AreaName" "PDNBASIC"
  203. Main "TICPATH:IBM:PDN:PDNBASIC:PDNBASIC"
  204. DEFINE "AreaName" "PDNBATCH"
  205. Main "TICPATH:IBM:PDN:PDNBATCH:PDNBATCH"
  206. DEFINE "AreaName" "PDNCEE"
  207. Main "TICPATH:IBM:PDN:PDNCEE:PDNCEE"
  208. DEFINE "AreaName" "PDNGNU"
  209. Main "TICPATH:IBM:PDN:PDNGNU:PDNGNU"
  210. DEFINE "AreaName" "PDNGNDOS"
  211. Main "TICPATH:IBM:PDN:PDNGNDOS:PDNGNDOS"
  212. DEFINE "AreaName" "PDNLANG"
  213. Main "TICPATH:IBM:PDN:PDNLANG:PDNLANG"
  214. DEFINE "AreaName" "PDNNEWS"
  215. Main "TICPATH:IBM:PDN:PDNNEWS:PDNNEWS"
  216. DEFINE "AreaName" "PDNNEWS"
  217. Main "TICPATH:IBM:PDN:PDNOS2:PDNNEWS"
  218. DEFINE "AreaName" "PDNOTHER"
  219. Main "TICPATH:IBM:PDN:PDNOTHER:PDNOTHER"
  220. DEFINE "AreaName" "PDNPASCL"
  221. Main "TICPATH:IBM:PDN:PDNPASCL:PDNPASCL"
  222. DEFINE "AreaName" "PDNUNIX"
  223. Main "TICPATH:IBM:PDN:PDNUNIX:PDNUNIX"
  224. DEFINE "AreaName" "PDNWIN"
  225. Main "TICPATH:IBM:PDN:PDNWIN:PDNWIN"
  226. DEFINE "AreaName" "SC_UUCP"
  227. Main "TICPATH:IBM:PDN:PDNSC_UUCP:SC_UUCP"
  228. DEFINE "AreaName" "SDN_BUSI"
  229. Main "TICPATH:IBM:SDN:SDN_BUSI:SDN_BUSI"
  230. DEFINE "AreaName" "SDN_COMM"
  231. Main "TICPATH:IBM:SDN:SDN_COMM:SDN_COMM"
  232. DEFINE "AreaName" "SDN_DATA"
  233. Main "TICPATH:IBM:SDN:SDN_DATA:SDN_DATA"
  234. DEFINE "AreaName" "SDN_GRAP"
  235. Main "TICPATH:IBM:SDN:SDN_GRAP:SDN_GRAP"
  236. DEFINE "AreaName" "SDN_MISC"
  237. Main "TICPATH:IBM:SDN:SDN_MISC:SDN_MISC"
  238. DEFINE "AreaName" "SDN_UTIL"
  239. Main "TICPATH:IBM:SDN:SDN_UTIL:SDN_UTIL"
  240. DEFINE "AreaName" "SDN_WORD"
  241. Main "TICPATH:IBM:SDN:SDN_WORD:SDN_WORD"
  242. DEFINE "AreaName" "SDN_SYST"
  243. Main "TICPATH:IBM:SDN:SDN_SYST:SDN_SYST"
  244. DEFINE "AreaName" "SDN_OTHR"
  245. Main "TICPATH:IBM:SDN:SDN_OTHR:SDN_OTHR"
  246. DEFINE "AreaName" "SDN_GAME"
  247. Main "TICPATH:IBM:SDN:SDN_GAME:SDN_GAME"
  248. DEFINE "AreaName" "BACKBONE"
  249. Main "TICPATH:BACKBONE:BACKBONE"
  250. DEFINE "AreaName" "ECHOLST"
  251. Main "TICPATH:ECHOLIST:ECHOLST"
  252. DEFINE "AreaName" "NODEDIF"
  253. Main "TICPATH:NODEDIFF:NODEDIF"
  254. DEFINE "AreaName" "FIDONWS"
  255. Main "TICPATH:FIDONEWS:FIDONWS"
  256. DEFINE "AreaName" "SERVICES"
  257. Main "TICPATH:SERVICES:SERVICES"
  258. DEFINE "AreaName" "ECHOPOL"
  259. Main "TICPATH:ECHOPOL:ECHOPOL"
  260. DEFINE "AreaName" "FILEMOVE"
  261. Main "TICPATH:FILEMOVE:FILEMOVE"
  262. DEFINE "AreaName" "NEWMUG"
  263. Main "TRANSPATH:NEWMUG:NEWMUG"
  264. DEFINE "AreaName" "LEDS"
  265. Main "TRANSPATH:POLICE:LEDS"
  266. *
  267. ******************************************
  268. * Load the NewFilesSect and Sort changes *
  269. ******************************************
  270. *
  271. LOAD "TRANSPATH:NewFilesSect"
  272. SORT/TITLE
  273. SAVE "TRANSPATH:NewFilesSect"
  274. *****************************************************************
  275. *Add these commands only if you have FSP memory allocation      *
  276. *Set high enough to handle all entry's, otherwise manually do it*
  277. *****************************************************************
  278. *
  279. EQUAL "Boolean" "MemoryFlag" "NO" ; test it
  280. SKIP "*GoNext" "Boolean"
  281. LOAD "TRANSPATH:CombinedFilesSect"
  282. SORT/TITLE
  283. SAVE "TRANSPATH:CombinedFilesSect"
  284. *
  285. *GoNext
  286. CHAIN "SCSI:BBS:FSPC(FILES.ALL)"
  287. END
  288.